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ABSTRfiCT 



THIS 15 NOT A TEST PROGRAfI! IT IS A SUPPLEMEMT 
TO BOTH THE Tflll/TUlO AND TH02/TU16 DATA 
RELIBILITY PROGRAMS. ITS PURPOSE IS TO ALLOW 'HE 
OPERATOR TO CREATE A PAPER TAPE CF WHATEVER DATA 
PATTERN IS DESIRED. TO BE USED Bv THE DATA RE^IBlLlTf 
PROGRAMS. UHEN DATA PATTERN ZERO (QMS SELECTED. 

REQUIREMENTS 



A. ANY PDP-11 rf?0CE5S0R 

9. TELETYPE OR LA30 KEYBOARD 

:. HIGH SPEED OR SPEED PUNCH 

D. IK OF CORE 

LOADING PROCEDURE 

USE STANDARD BINARY LOADING PROCEDJRE 
SMARTING PRCCEDLIIE 

THE PROGRAM MAY BE STARTED AT EITHER 200 (8) 

OR cOH (8). UHEN STARTED AT 200 (8). OPERATING 

INSTRUCTIONS HILL BE PRINTED BEFORE STARTING 

INPUT. UHEN STARTED AT 204 t8). INPUT IS 

IMMEDIATELY STARTEQ. INPUT STfiftT IS NOTED BY A.N ASTER IS 

SAMPLE START AT 200: iLOAD 200. PRESS START 3 

EXTERNAL DATA TAPE CREATE PROGRAM 
MAXIMUM CF 377 OCTAL CHARACTERS. 
ENTER 3 DIGITS (0-7) FOR EACH CHARACTER. 
CR UILL ECHO CR-LF. 

CONTROL C ENDS INPUT AT LESS THAN 377. 
A SINGLE CHARACTER CORRECTION MAY BE DONE 
BY TYPING A SLASH AND RETYPING THE CHARACTER. 

♦ ITHE flSTERISCK INDICATES START OF INPUT) 
SAMPLE START AT 204: ^LOAD 204 PRESS START; 

* i START If<PUT) 
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(PAGE 2) 
OPERATION: 



201 

Cr THREE (3) DIGITS (Q-?) EQUALS QfiE (1) CHARflSTEP. ON 
TAPE. ENTER AS FIANY 3 DIGIT GROUPS PER THE NUMBER 
OF CHARACTERS DESIRED IN THE PATTERN. THE PROGRAM 
kILL ACCEPT UP TO 256 CHARACTERS (377 OCTAL). 1^ 
LESS THAN 256 ARE OESIREO. TERMINATE INPUT BY 
TYPING A CONTROL C. A CARRIAGE RETURN (CR) HAY 
BE TYP^^ ANY Tim AND WILL ECHO A CR-LF BUT 



JILL NOT BE PLACED IN THE DATA PATTERN NOR COUNTED 
AS AN INPUT CHARACTER. ANY INPUT OTHER THAN AN 
OCTAL DIGIT (0-7). A CARRIAGE RETURN (CR), CR A CONTfiC. 
UILL BE CONSIDERED ILLEGAL AND BE FLAGGED BY A 
QUESTION MARK d. THE ILLEGAL ENTRY IS NEITHER 
PLACED IN THE DATA PATTERN NOR COUNTED AS A 

CHARACTER. WHEN INPUT IS COMPLETED (CONTROL C OR 25b CHARACTERS ^ 

THE PROGRAM TYPES END OF INPUT AND REQUESTS SELECTION 

OF HIGH SPEED OR LOW SPEED PUNCH FOR OUTPUT. A RESPONSE 

OF L TO THIS REQUEST WILL CAUSE OUTPUT ON THE TTY PUNCH. 

ft RESPONSE OF H TO THIS REQUEST WILL OUTPUT ON THE 

HIGM SPEED PUNCH. 

WHEN OUTPUT IS COMPLETE, THE PROGRAM WILL AGAIN 
REQUEST AN OUTPUT RESPONSE. IF EITHER H OR L IS 
TvpED. THE SAME DATA PATTERN IS AGAIN OUTPUT. THIS 
CAN B^ REPEATED AS MANY TIMES AS DESIRED. IF 
NO MORE OUTPUT IS NEEDED. BUT A DIFFERENT PATTERN 
IS DESIRED, TYPE A CR TO RETURN TO START OF 
irFUT WHICH WILL BE INDICATED BY AN ASTERISCK (»). 
THE FIRST CHARACTER PUNCHED ON THE TAPE IS THE NUMBER 
OF CHARACTERS ON THAT TAPE AND IS NOT USED AS 
PART OF THE PATTERN BY THE EXERCISERS. THE DATA 
ON THE TAPE WILL APPEAR AS BYTES IN CORE WHEN 
USED BY THE EXERCISERS. 
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EXAMPLES 




EXflflPLE I: LOAD AND START AT 204 (8) 

»DGC1 1 1222333HM43'377 'fe CONTROL C ) 

END OF INPUT 

ASSURE PUNCH IS ON 

AND TYPE L FOR LOU SPEED 

OR H FOR HIGH SPEED 

OR CR FOR RESTART WITH NO PUNCH 

I .OUTPUT IS NOW MADE ON TTY PUNCH) 



OUTPUT TAPE BIT LAYOUT: 

00000. lie (NUMBER CF CHARACTERS IN PATTERN IS (ti 

OCC'CC.OOQ 

01001.001 

10010.010 (THE DOT . REPRESENTS Th€ S-PROCKET HOi-E) 

11211.011 

00100. 100 

11111.110 

EXERCISER CORE MAP: 



WRITE BUFFER: 
♦2: 



0100100100000000 

iiouoiiiocioaiQ 
ii:iiiiciicii:ii 



lb CHARACTER = 3 L.CRC='. 



GOl 
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:s: . EXAMPLE 2: LOAD AND START 2QH (9) 

ill •377(CR) 

19a SOOCCR) 

•95 8'G'3(CR) 

1% 3342&6( CONTROL Z^ 

• a? 

199 END OF INPUT 

'99 ASSURE PUNCH IS ON 

ha AND TYPE L FOR LOU SPEED 

=C: OR H FOR HIGH SPEED 

=C2 OR CR FOR RESTART WITH NO PUNCH 

523 

22H H( OUTPUT IS NOW MADE OF HIGH SPEED PUNCH) 



OUTPUT TAPE BIT LAYOUT: 



108 OQOOO.IQI (NUMBER OF CHARACTERS IS 5) 

209 11111. Ill 

210 " 01000.000 

1:: 11011.011 (THE DOT REPRESENTS THE SPROCKET HOLE) 

212 00010.110 
|13 IQQOO.OOO 

lis EXERCISER CORE MAP: 

21? URITE SUFFER: OlOOOCOOllllUll 

219 +2: OCOlOUOilOllOU (5 CHARACTER = 2 UORDS + 1 BYTE: 

219 *H: OOOOOOOCICOOCOOO 
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1=4 7. EXCEPTION 

fi? NOTE THAT THE FIRST DIGIT OF THE 3 DIGITS PER CHARACTER 

528 IS LEFT JUSTIFIED. BECAUSE THE TAPE IS ONLY EIGHT (9) BITS 

r" WIDE. THE MOST SIGNIFICANT BIT OF THE FIRST DIGIT INPUT 

?3j FOR ^ACH CHARACTER IS LOST. SEE EXAMPLE ONE (1). THE FIFTH 

231 CHARACTER INPUT IS 4MM. BUT THE TAPE OUTPUT SHOWS QQlOOlOO 

333 BECAUSE THE MOST SIGNIFICANT BIT IS LOST. EXAMPLE 2. THE 

233 SECOND (2) CHARACTER INPUT, ALSO SHOWS THIS. REMEMBER. THE 

s^4 FIRST DIGIT INPUT FOR EACH CHARACTER WILL ONLY SHOW THE TWO 

55c . LEAST SIGNIFICANT BITS OF THAT DIGIT. 

331 THE OTHER EXCEPTION TO KEEP IN MIND, IS THAT IF INPUT IS 

237 TERMINATED AT SOME NUMBER OF DIGITS NOT DIVISIABLE BY THREE 

539 THE PARTIAL CHARACTER AT THE END OF THE FIELD WILL BE 

239 FILLED TO THE RIGHT WITH ZEROS (0). EXAMPLE 2. 

I4Q THE FIFTH (5) CHARACTER, HAS NOT BEEN COMPLETED BY 

54: INPUT BEFORE TEfiMlNATION. SEE THE TAPE LAYOUT, CHARACTER 5 

545 WHICH SHOWS THAT THE TWO (2) LEAST SIGNIFICANT DIGIT 

243 POSITIONS ARE FIlLED WITH ZEROES (0) TO COMPLETE THE 

244 CHARACTER FOR OUTPUT. 

24& E. EXERCISER USAGE 

3J7 ........ 

249 THE EXERCISERS WILL READ THE TfiPE CREATED BY DTC 

i=C AND FILL THEIR ENTIRE WRITE BUFFER WITH REPITICNS CF 

2Ei THE DATA TAPE SO THAT ANY SIZE RECORD CAN BE WRITTEN. 

ill 9. LISTING 

254 

IP .TITLE DATA TAPE CREATE 

259 ;MAINDEC-11-DZTUF-A-D 



R. 9ARNES 
!l9 SEPT 197^ 



259 

2fel -flBS 
262 

263 OQOCQQ RQ=/.0 

2fcH DOCOOI ^IrH 

265 000002 R2=>'.2 

2fcfe 000Q03 R3='':3 

257 C000Q4 RH=-.S 

259 000005 R5=/.5 

259 000005 SP=-/.5 

» «* » mm mm mm Di^ 

tfU UUUUUr Pv=»7 

2"i 

=72 OOOCOO .=0^^ 

273 .KEPT 200 

274 .+2^ 
27= HALT 
275: .ENDR 



:hlA TAPE CREATE 



OZTL'FA.Pil 



277 
278 
S79 
380 

Hi 

383 
2SH 
395 



398 
389 
2S0 
391 
393 
393 
394 
395 
396 
597 
399 
395 



DOIOOO 
001203 
001004 
C01006 
201010 
021013 
001014 



177560 
1775&3 
17756M 
:775b6 
177554 
177556 
177776 



001016 OOOCOC 

:ci02c 000000 
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CC33X 

000200 C00167 000^74 

000204 888l67 001012 
001000 



TKS 
TKB 
TPS 
TPB 
PPS 
PPB 
PSW 



TIB: 
TOB: 



JHP 



177560 
177562 
177564 
177566 
177554 
177556 
177776 



n 
0 



.=200 
START 

.=204 
STl 



:3TflRTINa AC0RESSs200(8) FCP HELP 
: START INi ADDRESS FOR MO H£.P 



.-1000 

• CONSTANTS********** 

;LOU SPEED PUNCH 

:HICH SPEED PUNCH 

:PROGRAn STATUS UORD 

: BUFFERS********** 

; INPUT BUFFER 
; OUTPUT BUFFER 



:hiTA TfiPt CREATE 
DZT'JFfl.Pii 



300 
301 
302 

E 

305 

30£> 

■307 

WW ' 

309 
SOS 
310 
311 
312 
313 
31H 
315 
316 
317 
315 

3:g 



0C12Q0 
•00120b 
001212 
00121& 
001222 
001230 
001234 
001240 
001244 
001250 
001254 
001256 
C012&0 - 

aoi2&£ 

001264 
001270 



"in 1 onn 



012777 
012706 
012704 
004767 
012777 
012706 
005067 
005067 
312700 
012702 
005022 
005300 
001375 
005001 
015702 
004767 
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000340 
0CD500 
002176 
000E32 
000340 
000500 
177560 
177552 
000250 
002754 



003017 
330642 



177606 START: 



177554 5Ti: 



ST2: 



S'3: 



.=1200 

: PROGRAM START AND HOUSEKEEPING********** 



nov 

MOV 
MOV 
JSR 
MOV 
MOV 
CLR 
CLR 
MOV 
MOV 
CLR 
DEC 
BNE 
CLR 
MOV 
JSR 



W340.3PSU 

•SOO.SP 

«MSGi.R4 

PCJTOUT 

t340,3PSU 

•500. SP 

TOB 

TIB 

1250, RO 

iDAmA0,R2 

(R2) + 

RO 

5T2 

Rl 

tDA-r:.R2 
PC.CRLF 



:SET TO PRIORITY LEVEL 7 
:SET STACK TO 500 

;TYPE HELP MESSAGE 



CLEAR BUFFERS 

SET SIZE IF DATA AREA 

SET START OF AREA TO CLEAR 

CLEAR DATA AREA 

CLEAR RO FOR USE AS CHARACTER COUNTER 
BR IF NOT DONE 

CLEAR Rl FOR USE AS DIGIT POSITION POINTER 
SET START OF DATA AREA 
TVPE CR.LF AND * 



CflTfl TfiPE CREfi'E 
OZTUFfl.Pil 
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320 
321 

322 001274 

323 001300 

324 001306 

325 001310 
32b 001316 
327 001322 
329 001326 

329 001334 

330 001336 

331 001340 
352 001342 

333 001346 

334 001354 

335 001356 

336 001362 

337 001370 

339 001372 
33g 001400 

340 001404 

341 001410 

342 001416 

343 001420 
344 



004767 
122767 
001007 
012767 
004767 
000167 
122767 
001004 
005700 
301753 
000167 
122767 
001002 
000167 
122767 
101407 
012767 
004767 
000167 
122767 
103031 
oca 167 



000552 READ: 
000215 177510 

000212 177502 

000512 

177746 

000203 177462 RDl: 



000234 

000257 177442 RD2: 
000042 

000260 177426 RD2A: 

000277 177420 RD2B: 

000430 

177664 

000267 177400 RD3: 
177745 



:UATA READ FROM TTY»«**«*««»* 



JSR 

C.1PB 

BNE 

nov 

JSR 

JMP 

CMPB 

BNE 

TST 

BEQ 

JMP 

CMPB 

BNE 

JMP 

CMPB 

BLOS 

MOV 

JSR 

JMP 

CMPB 

BHIS 

JMP 



PC.TTIN 

»2i5,TIB 

RDl 

•212. TOB 

PC.TOG 

reAd 

i203.TIB 

RD2 

RO 

ST3 

PUNCH 

«257,TIB 

RD2fl 

RUBCUT 

1260, TIB 

RD3 

i277.T0B 

pc.t6g 
reAo 

«267,TIB 

RD4 

RD2B 



:G0 INPUT DATA 
;BR IF NOT CR 
;D0 LF 

•GET NEXT DATA 

;BR IF NOT CONTROL C 

;BR IF FIRST INPUT 
:G0 TO PUNCH ROUTINE 

SEE IF RUBOUT 

IF NOT: BR 

;ELiE RUBOUT LAST EN^RY 
;BR IF NOT TOO LOW 
.'TYPE' 

:BR IF NOT TOO HIGH 



DATA TAPE CREATE 
DZTUFfi.Pll 
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LOl 



3H5 

347 00 

349 00 

S3 88 



351 00 




424 
42& 

45 
436 
442 
444 
450 
454 
_5& Oai45b 

357 0014&2 

358 001466 

359 001472 
60 001476 

361 
362 
363 

364 001502 

365 001506 

366 001512 

367 001516 

368 001520 
169 001522 
370 001524 

71 001526 

72 001530 

73 001532 

74 001534 
_75 001536 

376 001542 

377 001544 

378 001546 

379 001550 

380 001554 
181 001556 
382 001560 
_83 001562 

384 001564 

385 001566 
'86 001570 
387 00157^ 
338 001576 
389 



000240 
022701 

m 

142712 
005001 
000167 
142742 
005300 
012701 
000167 
142712 
012701 
000167 



016703 
142703 
022701 
101016 
103410 
000241 
106103 
106103 
106103 
150312 
005201 
000167 
150322 
005001 
005200 
000167 
000303 
000241 
006003 
006003 
150312 
005201 
022700 
001402 
000167 



000001 



000300 

177624 
000007 

000002 
177606 
000070 
000001 
177572 



177310 
000370 
000001 



000026 
000014 



000377 
177472 



•.LAST ENTRY RUBOUT ROUTINF«»#****«» 



RUBOUT: NOP 
CflP 
BHI 
BLO 
9ICB 
CLR 
JMP 

Bice 

DEC 
MOV 
JMP 
6ICB 
MOV 
JMP 



RBO: 



RBI: 



RD4: 



R05: 
RD6: 

RDEX: 



•l.Rl 

Rgd 
Rol 

1300. (R2) 
Rl 

READ 
»7,-(R2) 

RO 

•2.R1 

reAd 

«70. (R2) 
«l.fil 

reAd 



:SEE WHERE LAST ENTRY UAS 
;;F position 0: BR 
;!f position 1: BR 

: RESET POSITION POINTER 
•REENTER 

•.RESET CHAR POINTER 
: RESET POSITION POINTER 
•REENTER 

{RESET POSITION POINTER 
•REENTER 



: POSITION DIGITS TO FORM CHARACTER AND LOAD DATA AREA********** 



MOV 

BIC6 

CMP 

BHI 

BLO 

CLC 

ROLB 

ROLB 

ROLB 

BISB 

INC 

JMP 

BISB 

CLR 

INC 

JMP 

SUAB 

CLC 

ROR 

ROR 

BISB 

INC 

CMP 

BEQ 

JMP 



TIB.R3 

«376,R3 

•l.Ri 

RD6 

RD5 

R3 
R3 
R3 

R3,(R2) 
Rl 

RDEX 

R3.(R2)-^ 

Rl 

RO 

RDEX 

R3 

R3 
R3 

R3.(R2) 
Rl 

•377, RO 

PUNCH 

READ 



R3=STRIPPED DIGIT(0-7) 
TEST POSITION POINTER 
DO POSITION 2 
DO POSITION 0 



: POSITION DIGIT 1 

;LOAD DIGIT 1 

BUMP POINTER 

CHECK FOR END 

LOAD DIGIT 0 
; CLEAR POSITION POINTER 

BUMP CHARACTER COUNTER 
•LOAD DIGIT 

; POSITION DIGIT 2 



rLOAO DIGIT 2 AND BUM? CHARACTER ADDRESS 
;BUMP POINTER 

;BR IF FILLED DATA AREA 



DflTfl TAPE CREATE 
DZTUFfl.Pll 



390 
391 

392 001602 

393 0Qlb06 

394 001fcl2 

395 OOlblB 
39b 001b22 

397 001b2b 

398 001b32 

399 OOlbHO 
MOO 001b42 

401 OOlbBO 

402 001b52 

403 OOlbbO 

404 001bb2 

405 OOlbbb 

406 001b74 

407 001700 
408 

409 
410 

411 001704 

412 001710 

413 001714 

414 00171b 

415 001720 
41b 001724 
417 

418 
419 

420 001730 

421 001734 

422 001740 

423 001742 

424 001744 

425 001750 
42b 



1100b7 
062700 
012701 
012704 
0047b7 
0047b7 
1227b7 
001421 
1227b7 
001427 
I227b7 
001002 
0001b7 
0l27b7 
0047b7 
0001b7 



1121b7 
0047b7 
005300 
001372 
116700 
0001b7 



1121b7 
0047b7 
005300 
001372 
llb70C 
0001b7 



nflCYll 27(732) 03-SEP-7b 18:00 PflGE 12 



MOl 



001210 
000100 
002754 
002574 
000126 
000220 

000314 177156 
000310 177146 
000215 177136 
177334 

000277 177124 

000134 

177722 



177110 
000120 



001072 
177652 



177064 
OOOlbO 



00104b 
177b2b 



PUNCH: 



PG: 



PO: 



PE: 



PI: 



P2: 



: fAPE PUNCH ROUTINE********** 



hOVB 

ADO 

NOV 

NOV 

JSR 

JSR 

CHPB 

BEQ 

CHPB 

BEQ 

CMPB 

BNE 

JMP 

HOV 

JSR 

JMP 



RO.DA 
•ifiO.RO 
•DAflAo.Rl 
IM5G2.R4 

pc,tt6ut 

PC.TTIN 
•3i4,TIB 

Pi 

•310,TIB 
P2 

11215, TIB 

PE 

STl 

»277J0B 

pc,t6g 

PO 



;LOA0 DATA AREA SIZE 
EXPAND FOR LEADER/TRAILEP 
•LOAD PUNCH START ADDRESS 

;TYPE PUNCH REQUEST (H OR l) 
I GET ofSPONSE 

;5R IF L3 PUNCH 

;BR IF HS PUNCH 

SEE IF CR 

IF NOT: BR 
;ELSE RESTART 

;TYPE' 



: PUNCH TAPE ON LOU SPEED********** 



MOVB (R1)+,T0B 

JSR PC, TOG 

DEC RO 

BNE PI 

MOVB DA.RO 

JMP PUNCH 



PUNCH CHARACTER 
BR IF NOT DONE 
RESTART 

: PUNCH TAPE ON HIGH SPEED********** 



MOVB (R1)+.T0B 

JSR PC.THG 

DEC RO 

BNE P2 

MOVB DA.RO 

JMP PUNCH 



; PUNCH CHARACTER 
;BR IF NOT DONE 



DflTfl TAPE CREATE 
OZTUFfl.Pll 
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427 
H28 

429 00175M 

430 001760 

431 00l7b6 

432 001770 

433 001776 

434 002000 

435 002004 

436 002006 

437 002014 

438 002020 
43<3 002026 

440 002032 

441 002034 

442 002040 

443 002042 

444 002050 
445 

446 
447 

448 002052 

449 002056 

450 002062 

451 002066 

452 002072 

453 002074 

454 002102 

455 002106 

456 002110 

457 002116 
458 

459 
460 

461 002120 

462 002124 

463 002126 

464 002134 
465 

466 
467 

468 002136 

469 002144 

470 002150 

471 002156 

472 002162 

473 002170 

474 002174 
475 



112467 
122767 
001430 
122767 
001403 
004767 
000763 
112767 
004767 
112767 
004767 
000750 
105777 
100375 
116777 
000207 



005077 
005077 
005067 
105777 
100375 
017767 
105777 
100375 
1 J 3777 
0U0207 



105777 
100375 
116777 
000207 



012767 
004767 
012767 
004767 
012767 
004767 
000207 



177040 
0000M3 

000045 

000030 

000015 
000014 
000012 
000002 

176744 
176752 



176722 
176720 
176730 
176706 

176702 
176676 

176702 



176664 
176666 



000215 
177664 
000212 
177652 
000252 
177640 



177032 
177022 

177004 
176772 

176736 



TTOUT: 



176714 

176670 



TCRLF: 

TOGi- 
TEX: 

TTIN: 

TTIHl: 

TTIN2: 



THG: 



176656 

176654 
176642 
176630 



CRLF: 



; fTY OUTPUT SUBROUTirC********** 



flOVB 

CnPB 

BEQ 

CMPB 

BEQ 

JSR 

BR 

MOVB 

JSR 

MOVB 

JSR 

BR 

TSTB 
BPL 
MOVB 
RTS 



(R4)+.T0B 

•43,T0B 

TEX 

«45,T0B 

tcrLf 

PC. TOG 

tt6ut 

•15.T0B 

PC.tOG 

«12.T0B 

PC.tOG 

tt6ut 
aTPS 

TOG 

TOB.STPB 
PC 



;TTY READ SUBROUTINE********** 



CLR 

CLR 

CLR 

TSTB 

BPL 

MOV 

TSTB 

BPL 

MOVB 

RTS 



3TKS 

STKB 

TIB 

STKS 

TTINl 

aTKBJIB 

aTPS 

TTIN2 

TIB,aTPB 

PC 



;HIGH SPEED PUNCH SUBROUTINE********** 



TSTB 
BPL 
MOVB 
RTS 



apps 

THG 

TOB.aPPB 
PC 



;CR, LF, * TYPE SUBROUTINE********** 



MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
RTS 



•215J0B 

PC.TOG 

«2i2.T0B 

PC.TOG 

«2^2.T0B 

pc,t6g 

PC 



! 



3*:i? TOPE 



BOS 




srg 0C2176 

H9l 

-^SCs C02250 

■♦87 002256 

•4S9 0022S4 

•4S9 002272 
C02300 

^Sl 002302 

4g2 00231C 

H93 00231b 

494 002324 

495 002332 

496 002340 

497 0023% 
496 002350 

499 002356 

500 202364 
5C1 002372 
5::2 002373 
5C3 002400 
534 002406 

505 002414 

506 002422 

507 002430 

508 002436 
539 002442 

s:: 002450 

5U 002456 

51= 002464 

513 002472 

514 002500 

515 002506 
c'c nrseiu 

517 002522 

518 002530 

519 002536 
522 :02544 

521 002552 

522 002560 

523 002566 
52t 

525 

526 002574 

527 002602 
525 222610 
£29 2:2613 

-nstst 



022445 
047122 
OSSlDl 
042520 
052101 
043517 
040515 
020115 
333467 
046101 
040522 
022523 
047105 
020063 
051524 
043051 
041501 
051101 
022522 
051103 
020114 
041440 
045 
103 
046117 
042116 
052520 
046040 
044124 
033467 
020101 
042514 
040522 
041440 
052 L03 
040515 
042040 
0S4502 
047111 
046123 
047101 
054524 
052040 
040510 
051105 

0C2574 
222445 
045117 
05*125 
101 
020105 
CcOliO 



054105 
046101 
020101 
041440 
020105 
040522 
044530 
043117 
047440 
041440 
052103 

042524 
044504 
030050 
051117 
020110 
041501 

053440 
041505 
026522 

047117 
041440 
020123 
020124 
051505 
047101 
022456 
044523 
041440 
052103 
051117 
047511 
020131 
047117 
ncanan 

020107 
051501 
020104 
044520 
042510 
040522 
022456 



047105 
044440 
045 
05 1523 
052520 
251511 



042524 

042040 

040524 

042522 

051120 

022515 

052515 

031440 

052103 

040510 
nci inc 

020122 
044507 
033455 
042440 

042524 

046111 
047510 
043114 

051124 
042440 
047111 
052101 
020123 
031440 

043516 
040510 
051105 
042522 
020116 
042502 
022505 
ncnni 

020101 
020110 
042522 
043516 
041440 
052103 
043 



020104 
050116 

051125 
041516 
047440 



23-SEP-76 18:00 PACE 14 



.tV'EN 

:f1E5SflGES*»«*»«*»*« 
MSGl: .ASCII /'/.i-EXTERNAL DATA TAPE CREATE PROGRAM*/./ 



.ASCII /fiAxinun of 377 octal characters*/.- 



.ASCII ENTER 3 DIGIT5(0-7)F0R EACH CHARACTER'/./ 



.ASCII 'CR WILL ECHO CR-LF'/./ 



.ASCII / CONTROL C ENDS INPUT AT LESS THAN 377.'/;/ 



.ASCII -A SINGLE CHARACTER CORRECTION .^AY BE DONE^i^ 



.ASCII 'BY TYPING A SLASH A.ND RET'iPING THE CHARACTER." 



.EVEN 

nSG2: .ASCII /''.y-END 0^ INPUT;./ 



.ASCII /ASSURE PUNCH IS m\- 



5-49 
55C 



532 0:ib3M 

533 :C£b3fc 

534 0026«4 

535 0C2&52 
C02£bC 
C03&66 
03h&7 

53S 0026?M 
543 002702 
54' X271C 
54$ M2713 

543 002720 

544 002726 

545 C02734 
54£, C0c74£ 

- CC27SC 



536 
537 
539 



C22516 
047101 
C42520 
051117 
051H4Q 
045 
117 
047506 
0H41C7 
042105 
117 
343040 
051505 
053H40 
047516 
0H41C3 



552 002754 

CO 
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COS 



C20104 
C46C40 
046040 
042520 

020122 
020122 
051440 
045 
020122 
051117 
040524 
052111 
050040 
021445 



054524 
043040 
053517 
042105 

020110 
044510 
042520 

051103 
051040 
052122 
020110 
047125 



rfiri4C: 

DA: 



.ASCII 'AND TYPE L FOR LOU 5«»EED-J 



.ASCII 'OR H FOR HIGH SPEED*/./ 



.ASCII 'OR :R for restart WITH NO PUNCH*/.!/ 



• EVEN 

:DATr 



A AREA*«*«»*«»M 



.=.♦40 



w 



ZA'A TAPE CSEi^'E rWCVll zT.?22'- 03-SEP-7t .11 

::TuFfl?Pir :r:5S sEFE2i£.N:E table - user SYraoLi 

:9^F 002136 318 4bB« 

:A CCSClb 217 392* 

g i^. mi; 

439* 44H* 

»E OOlbbb 403 4C5t 

F: 001616 3951 

rFE X1C12 2921 463* 

PPS OOICIO 2911 461 

-S* 001014 293i 303* 

F-NCH 001602 332 387 

=0 C01626 397f 407 

Pi 001704 399 41 It 

Oc C01730 401 4201 

RS: 001450 349 3541 

SS: 001^*66 350 35Bt 

POEX 001570 375 379 

RC; 001326 324 328i 

c,D2 001346 329 333t 

Rj2fl 00136c 334 336i 

SC2B 001372 333t 343 

PC3 ' 001410 337 3411 

Ri;4 001502 342 3641 

RD5. CQ1542 368 37bt 

RD6- 001554 367 380« 

oEhD 00127'- 322t 327 

SUBOUT 001424 335 347l 

RO ='/^C0000 2b3t 311* 

Rl ='/.C00001 2641 316* 

R2 =-'.000002 2651 312* 

C3 =".000003 266f 364* 

R-i =-.000004 2671 305* 

R5 ='.000005 2681 

5F =v;00Qu06 2b9t 3C4* 

START 001200 279 303t 

STl 001222 282 3071 

=^2 001254 3131 315 

ST3 001270 3181 331 

TCRLF 002006 433 436t 

TEa 002050 431 444 i 

'Hi 002122 421 H61I 

TIB 001016 297t 310* 

456 

TKS 001002 28Bt 449* 

i TKS 001000 2871 448* 

00102C 2981 309* 

! 463 46S» 

' 'C: 002034 326 339 

i TPS 001006 290t 443* 

'5= 001004 2S9f 441 

' "iri 002052 322 397 
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DOS 



. 002066 4511 452 

:*i2 002102 45'*i 455 

00 1754 306 396 



415 
552t 


424 


55Ht 


















j18* 
457* 


J£C* 

464* 


JcC* 

469* 


471* 


JTJO* 

473* 


tJ^» ■ 
474* 












307* 
3921 


416 


425 


















414 
423 






















3861 






















340 


353 


357 


36C 


388 














314* 

348 

313* 

365* 

395* 


330 
352* 
317* 
370* 
429 


355* 
356* 
3Sl# 
3/1* 


373* 
359* 
354* 
372* 


386 
366 
358* 


392 
374* 
373* 
J/b 


393* 
377* 
376* 
Jou* 


413* 

w w w " 

394* 


415* 
394* 

la's* 


422* 
411 


424* 
42Z 


308* 






















404 






















462 
323 


328 


333 


336 


341 


364 


398 


400 


402 


450* 


453* 


453 

•♦51 

325* 

470* 

406 

456* 

454 

44St 


338* 

472* 
412 


405* 
434 


411* 
437 


420* 
439 


429* 
4411 


430 
442 


432 
^59 


436* 

471 


439* 
473 


4-!3 


429t 


435 


440 



















EOS 

r^i'i? 'hPE :S£t5:£ r«C>ll rv"325 33-SEP-7fe 18:X PA5E 18 

rzT.cfl.r:: cross s£fesen:£ table — user s>?«ols 

= ::3:£j 2r£f srr rat 2s:i 294t asoi 52St 5S3i 



:h'fl TAPE CREATE flACYil =717325 03-SEP-7& 18:00 PAGE 

:ZTLF(?.P11 CROSS REFtSENCt TABLE ~ PERMANENT SYMBOLS 

393 

8EJ 331 387 

SHI 349 367 

3HI5 342 

9I3B 373 37fe 

3LC 350 368 

BIOS 337 

gNE 315 324 

9PL 442 452 

SR 435 440 

:l: • 369 391 

309 310 

348 366 

CrPS 323 328 

$£: 314 355 

HALT 277 

:n: 3"'4 379 

279 292 

416 425 

:5R 336 318 

473 

y.Z\' 303 304 

«CV9 392 4ll 

NO? 347 

fiCLS 370 371 

R3R 382 333 

RTS 444 457 

5UAB 380 

TST 330 

TSTB 441 451 

.ASS 261 

.flsCII 474 485 

.ENO 557 

.E.'EN »*76 525 549 
.RE.1 1 

.i^EPT 273 

.TI'LE 257 



399 


401 


431 


433 




25S 
384 


"SLC 
www 








455 


462 




•til 


^Cw 


313 
jsb 
333 
413 


316 


352 


377 


449 


33w 
422 


341 


399 


400 


job 

327 


332 


335 


340 


343 


322 


326 


339 


396 


397 


305 
468 


307 

473 


308 
472 


311 


312 

TJC 


372 










464 


474 








454 


461 








491 


499 


50c 


509 


516 



ERRORS DETECTED; 0 

DEFAUwT GLCSfiLS GENERATED: 0 

♦DZTyFft.DZTliTA. SEQ/SOL/CRP/DS: ERF2/EN: A8S=DSKf1: DZTUFA. P 1 1 
RUN-Tinfe: 1 3 .6 SECONDS 
fi'jr+-'I«E RATIO: 29/6=4.2 
CORE USED: 6>( .12 PAGES) 



450 

430 432 



357 


360 


375 


379 


"302 


404 


-»:7 


412 


421 


434 


437 


•■*39 




->7: 


325 


336 


356 


359 


354 


394 


-sc 


443 


456 


463 










529 


533 


539 


542 









